100 CALL SCREEN(2) :: CALL CLEAR :: FOR I=0 TO 14 :: CALL COLOR(I,16,1) :: NEXT I
110 DATA 070F181830303030,E3FB1B0303030303,06060606060606FE,071F387060C0C0C0,E0F81C0E06030303,0F1F387060703F1F
120 DATA F7F70000000080C0,FFFF303030303030,7F7F60606060607F,C3E37333333363C3,0303030303030303,7F7F60606060607F
130 DATA DFDF1818181818DF,F0F81C0D0D0D1CF8,3F7FE0C080C0C07F,E0E0000000000000
140 DATA 3030303030180F07,FBFBDB1B1B3BF3C3,FE06060606060606,C0C0C06070381F07,030303060E1CF8E0,0000000000007F7F,603030303030E0C0
150 DATA 3030303030303030,7F60606060607F7F,C3733B1B1B3BF1E0,030303030303FEFC,7F60606060607F7F,DF1F1B191818D8D8,F00080C0E070391D
160 DATA 3F0000000000FFFF,80C060606060C080,00001F2040878890,0003834323139313,00000000000000E6,0F0F010101010737,FFFF80808080F0FC
170 DATA FFFF000000000001,C0C000002364A424,0000000087484848,000000001F909090
180 DATA 90888740201F0000,1393132343800000,F31919F1E0010306,31B1B1E1C1870701,8E8383838EFCF080
190 DATA 0200000060600000
200 FOR I=65 TO 111 :: READ DATA$ :: CALL CHAR(I,DATA$) :: NEXT I
210 CALL CHAR(35,"2423202020242300",36,"48C7484848488700",37,"901C828181821C00")
220 DISPLAY AT(2,6):"ABCDEFGHIJKFGHLMNOP"
230 DISPLAY AT(3,6):"QRSTUVWXYZ[VWX\]^_`"
240 CALL GHOST
250 DISPLAY AT(19,10):"abcdefghi" :: DISPLAY AT(20,10):"jklmno#$%"
260 CALL KEY(0,N,S) :: IF S=0 THEN 260
270 CALL CLEAR :: CALL DELSPRITE(ALL) :: CALL CHARSET :: FOR I=0 TO 14 :: CALL COLOR(I,16,1) :: NEXT I
280 CALL CHAR(112,"0203070B0F05A77FFF8F1F1F1F3F37220000804AC48E98F0C0E0F0F8FCFC7824")
290 CALL CHAR(128,"071F387060C0C0C1C3C7CE7C78381F07E0F81C1E3E73E3C3830303060E1CF8E0")
300 CALL CHAR(132,"0203070B0F058F7EBC0831230707000000008040C080123F7EF2F8F8F0E00000")
310 CALL MAGNIFY(3) :: DISPLAY AT(2,9):"GHOSTBUSTERS" :: CALL SPRITE(#1,112,16,20,256,0,-20)
320 FOR I=1 TO 24 STEP 8 :: CALL SOUND(-400,-5,I) :: CALL SOUND(-200,-5,I+3) :: CALL SOUND(-100,-5,I+6) :: NEXT I
330 CALL SPRITE(#2,128,7,20,1,0,23)
340 CALL COINC(ALL ,C) :: IF NOT C THEN 340
350 CALL DELSPRITE(#1) :: CALL MOTION(#2,0,0) :: CALL POSITION(#2,Y,X) :: CALL SPRITE(#1,132,16,Y,X)
360 CALL CHAR(38,"FF4040F04848F240",37,"7E81BDA1A1BD817E") :: DISPLAY AT(6,1):"        % BY &  1985                                     "
370 DISPLAY AT(12,1):"  BY  THOMAS DREIBRODT                                         OTTILIENSTR. 4     "
380 DISPLAY AT(16,1):"       4630  BOCHUM-7                                         TEL.:0234/287222    "
390 CALL KEY(0,N,S) :: IF S=0 THEN 390
400 CALL CLEAR :: CALL DELSPRITE(ALL)
410 CALL CHAR(108,"01010101070F0F070703031F1E100000C080C08080C0C2FFD8D0C06060303038")
420 CALL CHAR(116,"000C1C3C7C776F3F39797F7E6F703C0F0000000000F0F8F89C9EFE7EF60E3CF0")
430 CALL CHAR(120,"01071F3F7F7F7F7DF9FBFBFBFBAB7303FFDFDFDFEFE0FEFDFDFBFBFBFFFFFFFF")
440 CALL CHAR(124,"FFFBFBFBF7077FBFBFDFEFF7FFFFFFFF80E0F8FCFEFEFEBE9FDFDFDFD5CEC0C0")
450 CALL CHAR(136,"03030101000000000101010101010303FFFFFFFFFFFFFFFFFEFCFCF8F8F8FCFC")
460 CALL CHAR(140,"FFFFFFFEF9FFFF1F0303070F0F010000C0C08080C0E0F0F8F8F8F0E0E0E06000")
470 DISPLAY AT(2,5):"DIE HAUPTDARSTELLER:" :: CALL SPRITE(#1,108,4,50,30) :: DISPLAY AT(7,10):"DER GHOSTBUSTER"
480 CALL SPRITE(#2,112,16,80,30) :: DISPLAY AT(11,10):"EIN GEIST" :: CALL SPRITE(#3,116,16,110,35,#4,120,16,126,27,#5,124,16,126,43)
490 CALL SPRITE(#6,136,16,142,27,#7,140,16,142,43) :: DISPLAY AT(15,10):"DER" :: DISPLAY AT(17,10):"MARSHMALLOW-MAN"
500 CALL KEY(0,N,S) :: IF S=0 THEN 500
510 CALL CLEAR :: CALL DELSPRITE(ALL) :: CALL GHOST
520 RUN "DSK1.G-BUSTER1"
530 SUB GHOST
540 CALL CHAR(112,"00000003070F0E1C1C1C707070E0E0E0073FFFF8C00000000000000000000001")
550 CALL CHAR(116,"E0FCFF1F03000000000001030F3FFEFC000000C0E0F070383C7CFEFEEE870707")
560 CALL CHAR(120,"E0E0E07071773F3F1E0E0F0703000000071F3FFEF8E0C000000000C0F8FF3F07")
570 CALL CHAR(124,"F0C0000000000000000000031FFFFCE00707070E0E0E1C1C3870F0E0C0000000")
580 CALL CHAR(128,"000000000000000000000000000103E702040E1F1F35357FFBFFF979BFFBFFFE")
590 CALL CHAR(132,"00000000008080C0E0E0F8DCB0C00103000000000000000000000000064CFFFE")
600 CALL CHAR(136,"7EFD3F48000000000000000000000000F8E0C001071F1F1F173B7D3F07000000")
610 CALL CHAR(140,"0D3EFFFFFFFFFFFFFFFFFFFCE0000000FF08F0F0F0F0E0E0C080000000000000")
620 CALL MAGNIFY(4) :: CALL SPRITE(#5,112,9,50,95,#6,116,9,50,127,#7,120,9,82,95,#8,124,9,82,127)
630 CALL SPRITE(#1,128,16,50,95,#2,132,16,50,127,#3,136,16,82,95,#4,140,16,82,127)
640 SUBEND
